RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


*eFILEte ID eKC 


KK KK 
KK KK 
KK KK 
KK KK 
KK KK 
KK 

KKKKKK 
KKKKKK 

K KK 
KK KK 
KK KK 
KK KK 
KK KK 
KK KK 
RRRRRRRR 
RRRRRRRR 
RR RR 
RR RR 
RR RR 
RR RR 
RRRRRRRR 
RRRRRRRR 
RR RR 
RR RR 
RR RR 
RR RR 
RR RR 
RR RR 


FSOMAIOOOOMIS 
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Version: *v04-000' 

i eeeeeeeeeeeeeeeeeeeeeeeeeteeeeeeeeeeneeeneeeeeeeeeeeeeeereeeeereereereeeeee 
'e 

'‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

x ALL RIGHTS RESERVED. 

is Tuts SOF TWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH att a ~ we THE 
\* INCLUSION OF rae ABOVE COPYRIGHT NOTICE. THIS SOF OR OTHER 
's COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* TRANSFERRED. 

it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'‘t AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIB 


ILIT 
:* SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR _ RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


i weeeeeeeeeerererererererererereedeneeeeeeeeeeeeeeeeeeerererererterererereer 
' 

‘ee 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: 
Defines macros for reading a single character from input. 


i ENVIRONMENT : Transportable BLISS 


i AUTHOR: Rich Friday 
i CREATION DATE: 1978 
i MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (ibrary. 


: KCNS reads a character and advances the cursor. Substitution, as indicated 
} by the presence of the Substitute flag, is never performed. 


kcns( = 
TF -fs_length (ira) LEQ 0 


ENBEGIN 
EXTERNAL LITERAL 


a@eneneeneneneeneneneenennnnnne 


* 


1 
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rintes : UNSIGNED (8); 
khar = rintes; 
fs_length (ira) = <1; 


. fs_rchar (ira,khar)) 


' KCS reads a character; it calls SUBST if the character read is the 
Substitute flag and recognition of the Substitute flag is enabled. 


MACRO 
kcs(_) = 
N 


EGI 
EXTERNAL khar; 
EXTERNAL ROUTINE subst; 


kens(); 
[ereeteeeerereeTemporarily turned off 
is (.khar) 


subst (); - 
igre yaa of temporarily turned off 


: TISF returns the value TRUE if KHAR contains the Substitute flag, and 
: recognition cf the Substitute flag is enabled. 


MACRO 
tisf (khar) = 
(.flgt Cou flag. flag_enebled) ! Recognition of Substitute flag enabled? 
-sca_flags ! Recognition of all flags enabled? 


(khar EQL .flgt Csub_flag,flag_character])) ! Right character? 


: End of KC.REQ 
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